00100	TERNAL INTEGER ARRAY ISTK[0:ONE], ITBL[0:ONE], INEST[0:ONE] ;
00200	TERNAL STRING ARRAY  SSTK[0:ONE], STBL[0:ONE], SNEST[0:ONE] ;
00300	
00400	TERNAL INTEGER ARRAY	COMMENT "ALIASES" for Dynamic Arrays ;
00500		OLDPAGE, NEWPAGE, THISFRAME, MOLES,NMOLES, OWLS,NOWLS, THISAREA, WAITBOX, AVAILREC[0:ONE],
00600		AA,NAA[0:ONE, 0:ONE] ;
00700	
01000	TERNAL INTEGER SYMBOL,ERRFLAG;
01100	
01200	TERNAL STRING ARRAY SYM[-1:ONE];
01300	TERNAL INTEGER ARRAY NUMBER[-1:ONE];
01400	
01500	DEFINE PRINT="OUTSTR(",MSG="&'15&'12)";
01600	
01700	DEFINE ie = "COMMENT" ;